' Test oh files SFunction.txt b+ 2021-03-21
' Test also replace[] works but too many other places where I use : other than as line label.
' So removed that part of the code that swapped : with new line label ender \.

' get right to it, fix files so there are no blank lines
cfiles = files[]
' . cfiles
' yeah good!
' how many files? use nitems[AString] which is like uBound of an Array
nFiles = nItems[cfiles]
. Hello you have ;nFiles; files in the current working directory.
. get[cfiles,1];, is first file in our list.
fCount = 0 
[
	fCount = a[fcount,1]
	jmp gt[fcount,nFiles]
	' . fCount;. is ;get[cfiles,fcount]
	fname = get[cfiles,fcount]
	if seq[cap[right[fname,4]],.TXT]
		. Checking for colons in file ;fname
		check = load[fname]
		if in2[check,:]
			. fname; does contain at least one colon
			.
			. zzz while you note file, ...press any to continue.
			zzz
		fi
	fi
	' 44 files now scrolling off screen need to see 1st 10, specially 0
	if eq[m[fcount,25], 24]
		. zzz... press any for more files
		zzz
		cls
	fi	
]